##### SCRIPT QUE GERA A TABELA 1 #####

# 1. CARREGA PACOTES ------------------------------------------------------

library(tidyverse)
library(xlsx)

# 2. CARREGA DADOS --------------------------------------------------------

#' Nesta etapa, foi implementada a leitura dos dados combinados de Enade-RAIS e Censup

# 3. MANIPULACAO DOS DADOS ------------------------------------------------

# 3.1 Gera Tabela 1 ----

tab_1_emp <- tab_emprego %>% 
   filter(!is.na(area_curso_agreg)) %>% 
   group_by(nu_ano, area_curso_agreg) %>% 
   summarize(n_conc = n(),
             prop_conc_emp = sum(ind_empregado == 1)/n_conc)

tab_1_sal <- tab_salario %>% 
   filter(!is.na(area_curso_agreg)) %>% 
   group_by(nu_ano, area_curso_agreg) %>% 
   summarize(valor_sal_hora = mean(salario_hora, na.rm = T))

tab_1_completa <- left_join(tab_1_emp, tab_1_sal, 
                            by = c("nu_ano", "area_curso_agreg")) %>% 
   left_join(tab_censo) %>% 
   mutate(prop_conc_censo = n_conc/n_conc_censo)

# 4. EXPORTA TABELA 1 --------------------------------------------------------

xlsx::write.xlsx(tab_1_completa, file = "output/tabela_1.xlsx", row.names = F, append = T)
